From 114137b8aa69ae69d609edc0e77dad5a67f1a72d Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 27 May 1993 00:06:08 +0000 Subject: [PATCH] (listify-key-sequence): Avoid the constant ?\M-\200. --- lisp/subr.el | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/lisp/subr.el b/lisp/subr.el index 591493e42fc..755f64dff61 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -230,13 +230,20 @@ The normal global definition of the character C-x indirects to this keymap.") ;;;; Event manipulation functions. +;; This code exists specifically to make sure that the +;; resulting number does not appear in the .elc file. +;; The number is negative on most machines, but not on all! +(defconst listify-key-sequence-1 + (lsh 1 7)) +(setq listify-key-sequence-1 (logior (lsh 1 23) listify-key-sequence-1)) + (defun listify-key-sequence (key) "Convert a key sequence to a list of events." (if (vectorp key) (append key nil) (mapcar (function (lambda (c) (if (> c 127) - (logxor c ?\M-\200) + (logxor c listify-key-sequence-1) c))) (append key nil)))) -- 2.30.2